約 1,636,765 件
https://w.atwiki.jp/ssdmset2/pages/13.html
今回の特徴はこちら！ 個人戦１回勝負！ 約一ヶ月半程度の比較的短期間のSSキャンペーンです！ 基本的に試合は一対一！ 三名による巴戦もあるかも！？ 予選投票はナシ！ 参加者全員が対戦を行えます！ 試合のマッチングは対戦希望相手を聞いた上で行い、対戦相手のプレイヤーとSSで面白さを競うことになります！ 5,000字以内の短めの試合SSが有利になる判定方法を採用します！ 主な特徴を理解したら ルール・ゲームの流れで全体の流れなどを把握しましょう！
https://w.atwiki.jp/ssdmset2/pages/5.html
更新履歴 @wikiのwikiモードでは #recent(数字) と入力することで、wikiのページ更新履歴を表示することができます。 詳しくはこちらをご覧ください。 ＝＞http //www1.atwiki.jp/guide/pages/269.html#id_bf9eaeba たとえば、#recent(20)と入力すると以下のように表示されます。 取得中です。
https://w.atwiki.jp/ssdmset2/pages/42.html
五月女 水車 【 キャラクター名 】：五月女 水車 【キャラクター名読み】：そおとめ すいしゃ 特殊能力『ニューヨーク・オーシャン』 排尿することで発動。自らが女性化し、自らの尿を自在に操る能力。 尿を操っている間は女性化が固定され、その間は、水車の主観で水準以上の容姿を持った女性の尿も操ることができる。 ただし、対象の体内にある、排泄していない尿は操ることはできない。全ての尿の操作をストップすることで、女体化も解除される。 キャラクター設定 芸名、戸川 雑技(とがわ さつき)。5月31日生まれの29歳。容姿は上の下と、整っている方ではあるが、彼の奔放なキャラクターから嫉妬するものはごく少ない。短めの茶髪に、色眼鏡、ブルーのジャケットと白いチノパンをよく愛用している。もともと「ごがつコーポ」という漫才コンビのツッコミだが、最近は漫才よりもバラエティなどの司会として目にすることが多い、お茶の間の人気者。多くの魔人芸能人がそうであるように、彼も自らが魔人であることは公表しておらず、彼が魔人であることは両親ですら知らない。 また、女性の尿に対する並々ならぬ性嗜好を持っている。これは魔人であること以上に知られてはいけない、彼の中でのトップシークレットである。 本名はオフィシャルサイトに記載。 関連SS 幕間その１ 五月女 水車 プロローグ ※以下のSSは試合公開後に発表されたものですオフ会
https://w.atwiki.jp/ssdmset2/pages/65.html
百舌川 清音 プロローグ 「おはよう！」 鈴の音が転がるような声が教室に響く。遍く世界を照らす、柔らかな陽光を思わせる声色。 教室に居る者は、その一声で世界が色彩を取り戻したような感覚さえ覚えるだろう。 爽やかな小春の風が木々の緑を揺らし、授業前の憂鬱をも吹き飛ばすような。 枝葉に泊まる小鳥達は盛んに春を囀り、世界が今日も平和である事を謳う。 長閑で平穏な一日の始まりだ。 「おはよう清音！」「オハヨ！」「おはよーモズー」 百舌川清音の友人――つまりクラス全員だ――が口々に挨拶を交わす。 少女は一人一人丁寧に返答していく。挨拶は人間関係の基本である故、 彼女がそれを疎かにする事は無い。クラス委員長である百舌川が、毎日行う行事である。 その内、彼女は机に立てかけられた松葉杖に気付いた。 病気で長期欠席していた平本歩の席である。 「おはよう、百舌川。今日からまたよろしくな！」 「――おはよう、平本くん」 彼もまた、周囲と同じく快活に呼びかけが、返す百舌川の挨拶は歯切れが悪い。 それも無理からぬ事であろう。平本少年の長期欠席の原因は、 百舌川にあると言って過言では無いからだ。 「体の方はもう大丈夫なの？」 「ああ、ちょっと左半身が痺れるけどな。授業を受けるのに支障は無いさ」 平本はぷらぷらと左手を振って見せる。 彼の利き手は右であるから、確かにノートを取るに支障は無いだろう。 「……ごめんなさい、平本くん。正月だからって私がおせちなんか作らなければ、あんな事には……」 「もう気にすんなって。俺なんかまだ良い方さ、こうやって学校に出てこれたんだから」 そこまで言ってから、平本は失言に気が付いた。 確かに百舌川のおせち料理（と称する形容し難い何か）を食した生徒の中には、 未だに病院のベッドでうわ言を繰り返しているヤツも居る。 だが、だからと言ってそれをここで仄めかしては嫌味と取られても仕方が無い。 「あ、いや……なんつーか、とにかく俺は百舌川を責める気なんて無いよ。そこは分かってくれ」 「――うん、ありがとう。平本くん、優しいね」 ぽんわりとした、陽だまりのような笑顔を浮かべる百舌川。 ああ、この顔だ――と、平本は思う。この暖かな笑みの為なら何も惜しくは無い。 例えかのおせち料理（と百舌川が呼称するドブのような何か）によって8人が死亡し 23人が精神と肉体に重篤な瑕疵を負ったとしても、この笑顔が守られるならそれは瑣末な事では無いか。 「おいおい平本ー、退院早々良い雰囲気作ってんじゃないぞー？」 「そうだよー、モズはあたしのモノなんだかんね！」「いやいや、クラスの共有財産だろ」 わいのわいのとクラスメイト達が好き勝手に囃し立てる。 百舌川も目尻に涙を浮かべて笑っていたが、不意に何かを思い出したように鞄を探り出した。 「ん、どうかしたか百舌川。珍しく忘れ物か？」 「ううん、実は平本くんに渡したい物があって。ちょっと遅れちゃったけど……」 【それ】を百舌川が取り出した瞬間。 弛緩していた教室の空気が一瞬にして張り詰めた。 「はい、バレンタイデーのプレゼント。あっ、一応その、義理なので……気軽に食べてね！」 百舌川が差し出したのは丁寧にラッピングされた菓子袋である。 可愛らしくも洗練された包装は、男女の別なく送られた相手の好感を呼ぶものであっただろう。 その中身が、限りなく黒に近い紫色の液体で、常温にも関わらずぼこぼこと音を立てて沸騰していなければ。 「ア……ア……」「ひ……ッ！」「あ、ああ、そんな……！」 生徒達が【それ】を認識したと同時に、太陽は忌むべき物を避けるように雲間へと身を隠し、 春風は木枯らしの如き寒々しさへ変貌し、木々や緑は枯れ、鳥達は金切り声を上げて我先に安全圏へと飛び立った。 少年はさながら爆発寸前の水素爆弾を差し出されたかのように、 蒼白の面持ちで脂汗を流し、合わぬ歯の根を噛み締めていた。 多少の差はあれ、他の生徒達も同じ様相である。無理からぬ話であろう、 1-C生徒の誰もが恐れていたバレンタインデーという行事を、奇跡的に無傷で乗り越えた矢先の不意打ちであった。 平本は生唾を飲み込み、引き攣った笑みを浮かべる。 ここで返答を間違えれば待つのは破滅。それは平本個人の死などという生易しいものでは無い。 百舌川を除く1-C全員――あるいは希望崎学園そのものが消失する。今がその瀬戸際なのだ。 「う――嬉しいよ百舌川。うん、ありがたく頂こうかな、は、ははは、はは」 「えへへ、結構自信作なんだー、それ」 それは大量破壊兵器としての話か、というツッコミを喉元で抑え、 平本はおそるおそる常温沸騰する液体の入った袋を受け取った。 読者諸兄の中には自分の料理で8人も病院送りにしておいて、その被害者の快気祝いに手料理を送るとは どういう神経してんだスカタン、てめえの面の皮は百科事典並か――と思われる方も居られるやもしれない。 だが彼女の名誉の為に付け加えるならば、彼女の認識する世界に置いて彼女の料理は至極正常なのである。 故に彼女は自身が魔人であるという事すら知らない。彼女の料理が引き起こす惨劇も、その原因に気付く事は無い。 想像して欲しい。普通に作って出来たナポリタンが高レベルの放射能を有すると思うだろうか。 ハンバーグが治療法の無い未知の疫病を蔓延させると考えるだろうか。そういう事なのだ。 「ち、因みに、これは……何？」 「えっ？チョコクッキーだけど……？」 ――チョコクッキー！ 驚愕と恐怖を伴うざわめきがさざ波のように教室に伝播した。 チョコクッキー、チョコクッキーである。百舌川はこのドブ川の汚泥を掬って煮詰めたような色をした、 マグマのように沸騰し続ける液状の何かをチョコクッキーと呼称したのである。物質の三態すら定かでない。 平本は死体の腸を思わせる不気味な質感と温度のそれを手にしたまま、ただ能面のような笑顔を浮かべるしか無かった。 絶望のあまりその場にへたり込み、失禁する生徒も少なくない。 「ウワアアアーーッ！！」「キャアアアア！」「な、中田が落ちたーーッ！」 恐怖に耐え兼ねた生徒の一人がベランダ側の窓をぶち破り、校庭へ転落した。 パニックは枯野に放たれた野火の如く広まり、生徒達は堰を切ったように出口へと駆け出した。 4階にも関わらず窓から脱出を試みる者が多いのは、廊下側の席に座る平本の持つ チョコクッキー（と称する世界を終わらせる可能性を内包する何か）に1ミリたりとも近付きたくないからだ。 当の百舌川はクラス委員長らしく混乱を収めようと宥めにかかるが、元凶たる彼女の言葉を聞く者など居ない。 程なくして教室には百舌川、平本、そして両者と特に仲の良い友人数名が残るのみとなった。 「あ……あの、これってやっぱり、私のせい……なのかな」 自身の料理とそれが引き起こす結果を結び付けられない百舌川も、これ程の事態となっては流石に異変を感じる。 おせち事件も明確に自分の料理の所為とは考えていないが、 料理を作った事で何かバタフライエフェクト的に不幸が重なったかも知れない、とは薄々思っているのだ。 平本としてはやっぱりもクソもお前しかあり得ねーだろボケナスと思わなくも無いが、それを口に出す事は無い。 彼女は純粋に退院を祝う気持ちでチョコクッキー（と百舌川が呼称するこの世の怨念の集合体みたいな泥水）を 作ってきたという事を知っているからだ。料理を除けば、本当に完璧な美少女なのである。 ただ料理の出来が彼女の持つ長所全てを帳消しにしてなお有り余るだけなのだ。 「――そんな事ある訳無いだろ。お前はチョコクッキーを持って来た、ただそれだけじゃないか」 有体に言って彼は百舌川に惚れていた。クラスの男子の殆どがそうであるように。 だからこそ退けなかった。惚れた女が今にも泣きそうな笑顔で戸惑っている所に、 慰めの声をかけない男があるだろうか。そういった場面に直面した際、 平本は悲劇的なまでに男前な精神構造を有していた。 少年はリボンの封印を解き、チョコクッキー（チョコクッキーだ）の包装を広げた。 無臭であるのが逆に恐怖心を煽る。 「平本ーー！やめろ、それだけは！」「よせっ、お前も死ぬぞ！」 液体なので、袋の淵に口を付けて呷る。止めようとする友と、それを止める友。 涙目で平本を見つめる百舌川。最期に思う、父と母と幼い妹の事。 平本は強く目を瞑り、冷たく沸き立つチョコクッキーを口内へ流し込んだ。 その後の出来事を詳細に記す術は無い。 少なくとも文章では不可能だ。どんなに精緻な絵画でさえ現実を写し取る事は至難であるというのに、 いわんやそれを文字の上で表現するなど。 ただ事実を事実のまま描写するならば、1-C教室は永遠に封鎖された。 教室を脱出した生徒が教員に事態を告げると、異様なまでの迅速さで政府の役人を名乗る男達が派遣され、 魔人能力によって1-Cを物理的に封鎖したのだ。“普通に”脱出してきた百舌川を除く、 1-Cに残っていた生徒数名を残して。 教室の中で何が起きたのか、生徒がどうなったのか、知る者は居ない。 いや、正確には百舌川は知っている筈だが、彼女はこの件について完全に口を閉ざしている。 石棺の如く塗り固められた1-C教室は、時折中から引っ掻くような音が聞こえる以外に変わった様子は無く、 希望崎学園は今日も喧騒に塗れた日常を謳歌している。
https://w.atwiki.jp/ssdmset2/pages/9.html
@wikiにはいくつかの便利なプラグインがあります。 RSS アーカイブ インスタグラム コメント ニュース 動画(Youtube) 編集履歴 これ以外のプラグインについては@wikiガイドをご覧ください = http //atwiki.jp/guide/
https://w.atwiki.jp/banzai_guardian/pages/30.html
Icecrown Citadel 10man Raid Setup This is a guideline to enter ICC 10man guild run. Minimum Gear Score Requirement http //wow-heroes.com/ We tent to refer to the armory in wow-heros. Minimum requirement for ICC invite is to have ICC icon with your character. You can also check your current gear score by using an addon called "Gear Score". http //wow.curse.com/downloads/wow-addons/details/nvgearscore.aspx Tank = 5200 GS DPS = 4800 GS or 3500 dps on dummy Heal = 5200 GS Party Composition 2 tanks / 2 primary healers / 1 heal and dps hybrid / 5 dps Hybrid role must have decent gear for both specs. Helpful classes and specs that require for certain boss encounters are...1 Protection Paladin (Rotface) 1 Disc Priest (Deathbringer Saurfang) 1 Holy Paladin (Lord Marrowgar, Deathbringer Saurfang) 1 decurse caster DPS [Mage / Balance Druid / Elemental Shaman] (Lady Deathwhisper) 1 spell interrupt [Rogue / Warrior] (Lady Deathwhisper) 1 AoE snare [Hunter, Shaman] (Deathbringer Saurfang)
https://w.atwiki.jp/sicpstudygroup/pages/60.html
naga Todo 2.64 2.65 2.66 2.67 2.68 2.69 2.70 2.71 2.72 2.73 2.74 2.75 2.76 2.79 2.81 2.82 2.83 2.84 2.85 2.86 Exercise 2.53 ;;gosh (list a b c) ;;(a b c) ;;gosh (list (list george)) ;;((george)) ;;gosh (cdr ((x1 x2) (y1 y2))) ;;((y1 y2)) ;;gosh (cadr ((x1 x2) (y1 y2))) ;;(y1 y2) ;;gosh (pair? (car (a short list))) ;;#f ;;gosh (memq red ((red shoes) (blue socks))) ;;#f ;;gosh (memq red (red shoes blue socks)) ;;(red shoes blue socks) Exercise 2.54 (define (equal? x y) (cond ((and (symbol? x) (symbol? y)) (eq? x y)) ((and (pair? x) (pair? y)) (and (equal? (car x) (car y)) (equal? (cdr x) (cdr y)))) ((and (null? x) (null? y))) (else #f))) ;;gosh (equal? (this is a list) (this is a list)) ;;#t ;;gosh (equal? (this is a list) (this (is a) list)) ;;#f Exercise 2.55 ;; x は（quate x)のシンタックスシュガーなので ;; (car abr～)- (car (quote (quote abr～)))を評価すると(quote abr～)のcarをとることになるので ;; - quote ;;gosh (car abr) ;;quote Exercise 2.56 (define (exponentiation? x) (and (pair? x) (eq? (car x) **))) (define (base s) (cadr s)) (define (exponent s) (caddr s)) (define (make-exponentiation e1 e2) (cond ((=number? e2 0) 1) ((=number? e2 1) e1) (else (list ** e1 e2)))) (define (deriv exp var) (cond ((number? exp) 0) ((variable? exp) (if (same-variable? exp var) 1 0)) ((sum? exp) (make-sum (deriv (addend exp) var) (deriv (augend exp) var))) ((product? exp) (make-sum (make-product (multiplier exp) (deriv (multiplicand exp) var)) (make-product (deriv (multiplier exp) var) (multiplicand exp)))) ((exponentiation? exp) (make-product (make-product (exponent exp) (make-exponentiation (base exp) (- (exponent exp) 1))) (deriv (base exp) var))) (else (error unknown expression type -- DERIV exp)))) ;;gosh (deriv (** (+ x 3) 5) x) ;;(* 5 (** (+ x 3) 4)) Exercise 2.57 (define (augend s) (if (null? (cdddr s)) (caddr s) (cons + (cddr s)))) (define (multiplicand p) (if (null? (cdddr p)) (caddr p) (cons * (cddr p)))) ;;gosh (deriv (* x y (+ x 3)) x) ;;(+ (* x y) (* y (+ x 3))) Exercise 2.58 ;; a (define (sum? x) (and (pair? x) (eq? (cadr x) +))) (define (addend s) (car s)) (define (augend s) (caddr s)) (define (make-sum a1 a2) (cond ((=number? a1 0) a2) ((=number? a2 0) a1) ((and (number? a1) (number? a2)) (+ a1 a2)) (else (list a1 + a2)))) (define (product? p) (and (pair? p) (eq? (cadr p) *))) (define (multiplier p) (car p)) (define (multiplicand p) (caddr p)) (define (make-product m1 m2) (cond ((or (=number? m1 0) (=number? m2 0)) 0) ((=number? m1 1) m2) ((=number? m2 1) m1) ((and (number? m1) (number? m2)) (* m1 m2)) (else (list m1 * m2)))) ;;gosh (deriv (x + (3 * (x + (y + 2)))) x) ;;4 ;;gosh (deriv ((x * x) + (4 * x) + 4) x) ;;((x + x) + 4) ;; b ;;exp のリスト要素中に優先度の低い演算子+があればexpはsumであり、+の前までをaddend,+の後ろをaugend ;;とする。*についても同様におこなうが、sum?の判定と処理をproduct?の判定と処理に先立って行うことで、 ;;演算子の優先度にしたがった処理となる。 (define (dup-list-till s l) (if (eq? s (car l)) () (cons (car l) (dup-list-till s (cdr l))))) (define (1st-item-if-not-pairs p) (if (null? (cdr p)) (car p) p)) (define (sum? x) (and (pair? x) (memq + x))) (define (addend x) (1st-item-if-not-pairs (dup-list-till + x))) (define (augend x) (1st-item-if-not-pairs (cdr (memq + x)))) (define (product? p) (and (pair? p) (memq * p))) (define (multiplier p) (1st-item-if-not-pairs (dup-list-till * p))) (define (multiplicand p) (1st-item-if-not-pairs (cdr (memq * p)))) ;;gosh (deriv (x + 3 * (x + y + 2)) x) ;;4 ;;gosh (deriv (x * x + 4 * x + 3) x) ;;((x + x) + 4) Exercise 2.59 (define (union-set set1 set2) (cond ((null? set1) set2) ((element-of-set? (car set1) set2) (union-set (cdr set1) set2)) (else (cons (car set1) (union-set (cdr set1) set2))))) ;;gosh (define a (5 4 3 2 1)) ;;a ;;gosh (define b (8 7 6 5 4)) ;;b ;;gosh (union-set a b) ;;(3 2 1 8 7 6 5 4) Exercise 2.60 (define (element-of-set? x set) (cond ((null? set) #f) ((equal? x (car set)) #t) (else (element-of-set? x (cdr set))))) (define (adjoin-set x set) (cons x set)) (define (union-set set1 set2) (append set1 set2)) (define (intersection-set set1 set2) (cond ((or (null? set1) (null? set2)) ()) ((element-of-set? (car set1) set2) (cons (car set1) (intersection-set (cdr set1) (remove-from-set (car set1) set2)))) (else (intersection-set (cdr set1) set2)))) (define (remove-from-set x set) (define (rec set) (cond ((null? set) ()) ((eq? x (car set)) (cdr set)) (else (cons (car set) (rec (cdr set)))))) (rec set)) ;;gosh (define a (1 1 2 3 3)) ;;a ;;gosh (define b (1 3 3 4)) ;;b ;;gosh (adjoin-set 2 a) ;;(2 1 1 2 3 3) ;;gosh (union-set a b) ;;(1 1 2 3 3 1 3 3 4) ;;gosh (intersection-set a b) ;;(1 3 3) Exercise 2.61 (define (adjoin-set x set) (cond ((null? set) (append set (list x))) ((= x (car set)) set) (( x (car set)) (cons x set)) (else (cons (car set) (adjoin-set x (cdr set)))))) ;;gosh (define set (2 3 5 6)) ;;set ;;gosh (adjoin-set 1 set) ;;(1 2 3 5 6) ;;gosh (adjoin-set 7 set) ;;(2 3 5 6 7) ;;gosh (adjoin-set 4 set) ;;(2 3 4 5 6) ;;gosh (adjoin-set 3 set) ;;(2 3 5 6) Exercise 2.62 (define (union-set set1 set2) (cond ((null? set1) set2) ((null? set2) set1) (else (let ((x1 (car set1)) (x2 (car set2))) (cond ((= x1 x2) (cons x1 (union-set (cdr set1) (cdr set2)))) (( x1 x2) (cons x1 (union-set (cdr set1) set2))) (else (cons x2 (union-set set1 (cdr set2))))))))) ;;gosh (define set1 (1 3 5 7)) ;;set1 ;;gosh (define set2 (2 4 5 6 8)) ;;set2 ;;gosh (union-set set1 set2) ;;(1 2 3 4 5 6 7 8) Exercise 2.63 (define t1 (make-tree 7 (make-tree 3 (make-tree 1 () ()) (make-tree 5 () ())) (make-tree 9 () (make-tree 11 () ())))) (define t2 (make-tree 3 (make-tree 1 () ()) (make-tree 7 (make-tree 5 () ()) (make-tree 9 () (make-tree 11 () ()))))) (define t3 (make-tree 5 (make-tree 3 (make-tree 1 () ()) ()) (make-tree 9 (make-tree 7 () ()) (make-tree 11 () ())))) (define (tree- list-1 tree) (if (null? tree) () (append (tree- list-1 (left-branch-tree tree)) (cons (entry tree) (tree- list-1 (right-branch-tree tree)))))) (define (tree- list-2 tree) (define (copy-to-list tree result-list) (if (null? tree) result-list (copy-to-list (left-branch-tree tree) (cons (entry tree) (copy-to-list (right-branch-tree tree) result-list))))) (copy-to-list tree ())) ;;gosh t1 ;;(7 (3 (1 () ()) (5 () ())) (9 () (11 () ()))) ;;gosh t2 ;;(3 (1 () ()) (7 (5 () ()) (9 () (11 () ())))) ;;gosh t3 ;;(5 (3 (1 () ()) ()) (9 (7 () ()) (11 () ()))) ;;gosh (tree- list-1 t1) ;;(1 3 5 7 9 11) ;;gosh (tree- list-1 t2) ;;(1 3 5 7 9 11) ;;gosh (tree- list-1 t3) ;;(1 3 5 7 9 11) ;;gosh (tree- list-2 t1) ;;(1 3 5 7 9 11) ;;gosh (tree- list-2 t2) ;;(1 3 5 7 9 11) ;;gosh (tree- list-2 t3) ;;(1 3 5 7 9 11) ; a 両方ともbinary-treeからordered-listを生成 ; b 両方とも１度の呼出しでエントリを正しい位置においてleft-branchとright-branchを再帰的に処理するので ; オーダとしては同じθ(n)？ Exercise 2.64 Exercise 2.65 Exercise 2.66 Exercise 2.67 (define sample-tree (make-code-tree (make-leaf A 4) (make-code-tree (make-leaf B 2) (make-code-tree (make-leaf D 1) (make-leaf C 1))))) (define sample-message (0 1 1 0 0 1 0 1 0 1 1 1 0)) ;;gosh (decode sample-message sample-tree) ;;(A D A B B C A) Exercise 2.68 (define (encode message tree) (if (null? message) () (append (encode-symbol (car message) tree) (encode (cdr message) tree)))) (define (encode-symbol symbol tree) (define (rec stree) (cond ((leaf? stree) ()) ((memq symbol (symbols (left-branch stree))) (cons 0 (rec (left-branch stree)))) (else (cons 1 (rec (right-branch stree)))))) (if (memq symbol (symbols tree)) (rec tree) (error "bad symbol -- ENCODE-SYMBOL" symbol))) ;;gosh (encode (A D A B B C A) sample-tree) ;;(0 1 1 0 0 1 0 1 0 1 1 1 0) Exercise 2.69 (define (generate-huffman-tree pairs) (successive-merge (make-leaf-set pairs))) (define (successive-merge leaf-set) (cond ((null? (cdr leaf-set)) (car leaf-set)) (else (successive-merge (adjoin-set-huffman (make-code-tree (car leaf-set) (cadr leaf-set)) (cddr leaf-set)))))) (define pairs ((A 4) (B 2) (C 1) (D 1))) ;;gosh (display (generate-huffman-tree pairs)) ;;((leaf A 4) ((leaf B 2) ((leaf D 1) (leaf C 1) (D C) 2) (B D C) 4) (A B D C) 8)# undef Exercise 2.70 Exercise 2.71 Exercise 2.72 Exercise 2.73 Exercise 2.74 Exercise 2.75 Exercise 2.76 Exercise 2.77 (define (install-complex-selector-package) (put reak-part (complex) real-part) (put imag-part (complex) imag-part) (put magnitude (complex) magnitude) (put angle (complex) angle)) (install-complex-selector-package) (define (real-part z) (apply-generic real-part z)) (define (imag-part z) (apply-generic imag-part z)) (define (magnitude z) (apply-generic magnitude z)) (define (angle z) (apply-generic angle z)) ;;gosh (define z (make-complex-from-real-imag 3 4)) ;;z ;;gosh z ;;(complex rectangular 3 . 4) ;;gosh (magnitude z) ;;5.0 ;;(magnitude top z)- (apply-genric magnitude z)- ;;(magnitude top (cdr z))- (apply-generic magnitude (cdr z))- ;;(magnitude rectangular-package (cddr z))- 5.0 Exercise 2.78 (define (attach-tag type-tag contents) (cond ((eq? type-tag scheme-number) contents) (else (cons type-tag contents)))) (define (type-tag datum) (cond ((number? datum) scheme-number) ((pair? datum) (car datum)) (else (error "Bad tagged datum -- TYPE-TAG" datum)))) (define (contents datum) (cond ((number? datum) datum) ((pair? datum) (cdr datum)) (else (error "Bad tagged datum -- CONTENTS" datum)))) ;;gosh (define n (make-scheme-number 5)) ;;n ;;gosh n ;;5 ;;gosh (type-tag n) ;;scheme-number ;;gosh (contents n) ;;5 Exercise 2.79 Exercise 2.80 (define (=zero? x) (apply-generic =zero? x)) (define (install-=zero?-package) (put =zero? (scheme-number) (lambda (x) (= x 0))) (put =zero? (rational) (lambda (q) (=zero? (numer q)))) (put =zero? (complex) (lambda (z) (=zero? (magnitude z)))) done) (install-=zero?-package) ;; テスト (define o0 0) (define o1 1) (define r0 (make-rational 0 1)) (define r0.5 (make-rational 1 2)) (define c1 (make-complex-from-real-imag 1 1)) (define c0 (make-complex-from-mag-ang 0 1)) ;; 結果 ;;gosh (=zero? o0) ;;#t ;;gosh (=zero? o1) ;;#f ;;gosh (=zero? r0) ;;#t ;;gosh (=zero? r0.5) ;;#f ;;gosh (=zero? c1) ;;#f ;;gosh (=zero? c0) ;;#t Exercise 2.81 Exercise 2.82 Exercise 2.83 Exercise 2.84 Exercise 2.85 Exercise 2.86 Exercise 2.87 ;; なぜadjoin-termはzero?でなく=zero?を使うのだろう？ ;; (put zero? (polynomial) (lambda (z) (empty-termlist? z))) (define (=zero? coeff) (zero? coeff)) ;; テスト (define p1 (make-polynomial x ((4 4) (2 2) (0 1)))) (define p2 (make-polynomial x ((3 3) (1 1)))) (define p3 (make-polynomial x ((2 -2)))) (define p4 (make-polynomial x ((2 2)))) (define p5 (make-polynomial y ((3 (polynomial x (2 -2))) (1 1)))) (define p6 (make-polynomial y ((3 (polynomial x (2 2))) (1 1)))) (display (add p1 p2)) (newline) (display (add p2 p1)) (newline) (display (add p1 p3)) (newline) (display (add p3 p4)) (newline) (display p3) (newline) (display p4) (newline) (display p5) (newline) (display p6) (newline) (display (add p5 p6)) (newline) ;; 結果 (polynomial x (4 4) (3 3) (2 2) (1 1) (0 1)) (polynomial x (4 4) (3 3) (2 2) (1 1) (0 1)) (polynomial x (4 4) (0 1)) (polynomial x) (polynomial x (2 -2)) (polynomial x (2 2)) (polynomial y (3 (polynomial x (2 -2))) (1 1)) (polynomial y (3 (polynomial x (2 2))) (1 1)) (polynomial y (3 (polynomial x)) (1 2)) ；一応多項式の係数も判定できているようだ 上記はex2.80で定義する汎用述語が「=zero?」ではなく「zero?」と勘違いしていたため、間違った 内容となっています。 ;; ex2.80に追加して ;; polynomial用の=zero?をgeneric operationに登録 (put =zero? (polynomial) (lambda (z) (empty-termlist? z))) ;; テスト (define p1 (make-polynomial x ((4 4) (2 2) (0 1)))) (define p2 (make-polynomial x ((3 3) (1 1)))) (define p3 (make-polynomial x ((2 -2)))) (define p4 (make-polynomial x ((2 2)))) (define p5 (make-polynomial y ((3 (polynomial x (2 -2))) (1 1)))) (define p6 (make-polynomial y ((3 (polynomial x (2 2))) (1 1)))) (display (add p1 p2)) (newline) (display (add p2 p1)) (newline) (display (add p1 p3)) (newline) (display (add p3 p4)) (newline) (display p3) (newline) (display p4) (newline) (display p5) (newline) (display p6) (newline) (display (add p5 p6)) (newline) ;; 結果 ;;(polynomial x (4 4) (3 3) (2 2) (1 1) (0 1)) ;;(polynomial x (4 4) (3 3) (2 2) (1 1) (0 1)) ;;(polynomial x (4 4) (0 1)) ;;(polynomial x) ;;(polynomial x (2 -2)) ;;(polynomial x (2 2)) ;;(polynomial y (3 (polynomial x (2 -2))) (1 1)) ;;(polynomial y (3 (polynomial x (2 2))) (1 1)) ;;(polynomial y (3 (polynomial x)) (1 2)) ；一応多項式の係数も判定できているようだ
https://w.atwiki.jp/avasunset/pages/46.html
Main Weapon -Tavor Assault Rifle, for 21st century Sub Weapon - Beretta 92FS Settings Resolution - 1280*1024 Windows Sensitivity - 8/11 Mouse Sensitivity - 11 Devices Mouse - Microsoft IntelliMouse Explorer 3.0 Mouse Pad - SteelSeries QcK mini Pad Sole - Default Key Board - cheap Head Set - audio-technica ATH-A900 Monitor - cheap PC Spec CPU - Intel Core 2 Quad Q6600 Memory - 4GB VGA - NVIDIA GeForce 8600 GT Motherboard - unknown Sound Card - unknown OS - WindowsXP SP3
https://w.atwiki.jp/titanquest/pages/534.html
Amulet of Morpheus 日本語訳：アミュレット オブ モルペウス 性能 27% Elemental Resistance 115% Sleep Resistance +43% Electrical Burn Damage +10% Strength +11% Intelligence +420 Health +318 Energy +3 to All Skills in Dream Mastery Required Level 47 解説
https://w.atwiki.jp/dominions3/pages/1168.html
Lychantropos Amulet 野獣になれるお守り。外すことはできない上、いずれ本当に獣になる Lychantropos Amulet その他 研究Lv 属性 属性2 内部ID 247 4 2 威力 攻撃補正 攻撃回数 長さ 防御力 防御補正 回避率 重さ 射程 弾数 特殊 その他 HP再生：10%、腕力補正：4強制Berserk、装備解除禁止特殊：毎ターン魔法抵抗判定、失敗でSkinshifterに変身 ゲーム内解説文 This iron amulet is crafted in the image of a wolf s head. Its eyes are as red as the rage that fills the heart of the wearer. The amulet grants the wearer regenerative powers in addition to increased strength and berserker rage. The wild powers of the amulet will eventually turn the wearer into a beast. 和訳 この鉄製の護符は、狼の頭を模して作られます。その目は、着用者の心を満たす怒りと同じぐらいに赤いです。護符は、着用者に再生能力を与え、さらに力の増大と狂戦士の怒りをもたらします。護符の野生の力は、やがて着用者を獣へと変えます。 注記 狼男のようになれるお守り。その他欄1つだけでHP再生と腕力強化を得られるが、強制Berserkや装備解除不可など癖のある性質も併せ持つ。 命令を聞かなくなるのは痛いが、接近戦を挑む指揮官の補強としてはなかなかに優秀。攻撃面の強化と防御面の強化を同時に行える。 Berserkも、元からBerserkerであればその補正値を利用できるので利用価値が大きくなるし、Flesh EaterなどのBerserker化する武器との組み合わせにも向いている。防御スキル低下と疲労の増加はあるが、他で対策すればどうとでもなるだろう。 しかし最も特徴的なのは、装備していると毎ターン一定確率でSkinshifterへと変化すること。これは本来ならVanheimの兵で、性質もそのままとなっている。 元から強靭な指揮官だと損になるが、大概の人間であれば全体的な身体能力の強化になる。また倒されるとWerewolf化して戦い続けられるため、見た目よりも死ににくい。 どちらの形態もBerserkerではないので、補正を活かすにはアイテムの支援が必須だが、そのかわりHP再生を自前で持つので、このアイテムのボーナスと合わさって高速でHPを回復できる利点もある。 変身時に注意すべきなのは、元が何であろうと年齢を引き継いだままで寿命が100年になること。一般的な人間からの変化ならむしろ余裕ができるはずだが、そうでない場合は一気に老齢になることもあり得る。 また変化はあらゆる指揮官で起きるわけではない。ざっくり調べた限りだと、人型でないものは不可能だし、またアンデッドや無生物も対象外らしい。もっとも、人外からの変異は年齢の問題も起こり易く、あまり推奨できる話ではない。 ちなみにこのアイテム、敵に対する罠にもなる。というのも、一回装備すると外れない上にBerserkが邪魔になり得るにも関わらず、鹵獲の対象になってしまうため、その他欄が空いたまま戦闘に出ているとうっかり拾ってしまうことがある。 主要な戦闘型指揮官ならともかく、それ以外の指揮官や魔術師にまで完全装備を行っていることは稀な話。上手く行けば敵の重要な指揮官を無能にできるかもしれない。逆に味方が装備する場合、他の味方が回収する可能性にも注意が必要となる。 コメント 名前 コメント